use strict;
use warnings;
package WebTranslate::Unit;
use Object::InsideOut qw/WebTranslate::Base/;

my @Content	:Field	:All(Content);
my @Sec		:Field	:All(Sec);
my @Unit	:Field	:All(Unit);
my @Lang	:Field	:All(Lang);
my @Comment	:Field	:All(Comment);
my @Similar	:Field	:All(Similar);

sub addContent {
	my ($self, $content) = @_;
	$Content[$$self] .= $content; 
}

sub getAttr {
	my $self = shift;
	my $attr = {
		Sec 	=> $Sec	[$$self],
		Unit	=> $Unit	[$$self],
		Lang	=> $Lang	[$$self],
	};
	return $attr;
}

sub getContent{
	my $self = shift;
	return $Content[$$self];

}

1;

